home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9103b.d64 / highspeed c128.a < prev    next >
Text File  |  1995-03-30  |  5KB  |  74 lines
  1.  
  2.  
  3. READY.
  4. 0000 ;*******************                                                      
  5. 0001 ;* HIGHSPEED C128  *                                                      
  6. 0002 ;* QUELLCODE       *                                                      
  7. 0003 ;* WRITTEN IN 1990 *                                                      
  8. 0004 ;* BY LARS WERNER  *                                                      
  9. 0005 ;*******************                                                      
  10. 0006 ;                                                                         
  11. 0007                 *=    $10A6                                               
  12. 0008                 .BANK $0F                                                 
  13. 0009                 .OBJ  M                                                   
  14. 0010 ;                                                                         
  15. 0011  RANDO          =     50                                                  
  16. 0012  RANDU          =     250                                                 
  17. 0013  RASTER         =     $D012                                               
  18. 0014  MASK           =     $D01A                                               
  19. 0015  REQUEST        =     $D019                                               
  20. 0016  CIAREQUEST     =     $DC0D                                               
  21. 0017 ;                                                                         
  22. 0018                 SEI                                                       
  23. 0019                 LDA   $0314       ;ALTEN IRQ                              
  24. 0020                 LDX   $0315       ;MERKEN                                 
  25. 0021                 STA   IRQALT                                              
  26. 0022                 STX   IRQALT+1                                            
  27. 0023 ;                                                                         
  28. 0024                 LDA   #<IRQNEU    ;NEUEN IRQ                              
  29. 0025                 LDX   #>IRQNEU    ;SETZEN                                 
  30. 0026                 STA   $0314                                               
  31. 0027                 STX   $0315                                               
  32. 0028 ;                                                                         
  33. 0029                 LDA   #RANDO      ;RASTERZEILEN-IRQ                       
  34. 0030                 STA   RASTER      ;SETZEN                                 
  35. 0031                 LDA   RASTER-1                                            
  36. 0032                 AND   #%01111111                                          
  37. 0033                 STA   RASTER-1                                            
  38. 0034                 LDA   #%10000001                                          
  39. 0035                 STA   MASK                                                
  40. 0036                 CLI                                                       
  41. 0037                 RTS                                                       
  42. 0038 ;                                                                         
  43. 0039  IRQNEU         LDA   REQUEST     ;RASTER-IRQ-REGISTER                    
  44. 0040                 STA   REQUEST     ;LOESCHEN                               
  45. 0041                 BMI   RASTERIRQ   ;AUF TIMER-IRQ PRUEFEN                  
  46. 0042 ;                                      ;WENN AKTIV =>RASTERIRQ            
  47. 0043 ;                                                                         
  48. 0044  TIMERIRQ       LDA   CIAREQUEST  ;TIMER-IRQ-REGISTER LOESCHEN            
  49. 0045                 CLI                                                       
  50. 0046                 JMP   (IRQALT)    ;SPRUNG ZUM TIMER-IRQ                   
  51. 0047 ;                                                                         
  52. 0048  RASTERIRQ      LDA   RASTER      ;RASTERZEILE HOLEN                      
  53. 0049                 CMP   #RANDU      ;UNTERER BILDSCHIRMRAND ?               
  54. 0050                 BCS   OK          ;WENN ERREICHT SPRUNG => OK             
  55. 0051 ;                                                                         
  56. 0052                 LDA   #252        ;TAKTFREQUENZ AUF                       
  57. 0053                 STA   $D030       ;1 MHZ SETZEN                           
  58. 0054                 LDA   #RANDU      ;NEUE RASTERZEILE HOLEN                 
  59. 0055                 JMP   EXIT        ;IRQ VERLASSEN                          
  60. 0056 ;                                                                         
  61. 0057  OK             LDA   #253        ;TAKTFREQUENZ AUF                       
  62. 0058                 STA   $D030       ;2 MHZ SETZEN                           
  63. 0059                 LDA   #RANDO      ;NEUE RASTERZEILE HOLEN                 
  64. 0060 ;                                                                         
  65. 0061  EXIT           STA   RASTER      ;NEUE RASTERZEILE SETZEN                
  66. 0062                 JMP   (IRQALT)    ;IRQ VERLASSEN                          
  67. 0063 ;                                                                         
  68. 0064  IRQALT         .BYTE $00,$00                                             
  69. 0065 ;                                                                         
  70. 0066                 .END                                                      
  71. 0067                                                                           
  72.  
  73. READY.
  74.